10 REM ***************************
11 REM *** DECLARE 88 BEISPIEL ***
15 OPEN1,8,15:PRINT#1,"S:BLUE.OBJ,COLORS.PAC":CLOSE1
20 (null)
100 REM *** ERSTELLEN EINES OBJ-FILES
105 REM  1. FILE OEFFNEN
110 OPEN1,8,2,"BLUE.OBJ,P,W"
111 REM  2. ASSEMBLER AUFRUF
112 SYS9*4096:.OPT O1:*=828
113 ; ** 3. QUELLTEXT ***
114 .ASC "PROGRAM:"
120 LDA #6:STA 53280:STA 53281:RTS
130 .END
132 CLOSE1
140 REM DEKLARATION
142 (null)"BLUE",8
200 REM *** PACK-FILE MIT USING
210 OPEN1,8,2,"COLORS.PAC,P,W"
212 SYS9*4096:.OPT O1:*=828
213 ; *** QUELLTEXT ***
214 .ASC "PRO[195] WHITE,PRO[195] GREY:U[211] BLUE,2:PRO[199]:"
220 JMP WHT:JMP GRE
224 WHT LDA #1:JMP L328
226 GRE LDA #12
228 L328 JMP $FFFF
230 .END
232 CLOSE1
240 REM DEKLARATION
242 (null)"COLORS",8
300 REM *** AUS SPEICHER DEKLARIEREN
309 REM   1. ASSEMBLER-AUFRUF
310 SYS9*4096:.OPT OO:*=828
312 ; **  2. QUELLTEXT
314 .ASC "USING BLUE,2:PROGRAM:"
316 .WORD ENDE
318 LDA #2:JMP $FFFF
320 ENDE NOP
322 .END
330 REM *** DEKLARATION
340 (null)"RED",1,828
400 REM *** "PACK" MIT #1 OHNE "USING"
412 SYS9*4096:.OPT OO:*=828
414 .ASC "PROCEDURE GREEN,PROCEDURE YELLOW:PROGRAM:"
416 .WORD ENDE
420 JMP GRN:JMP YEL
424 GRN LDA #5:JMP L328
426 YEL LDA #7
428 L328 STA 53280:STA 53281:RTS
430 ENDE NOP
432 .END
440 REM *** DEKLARATION
442 (null)"COLORS2",1,828
450 PRINT:PRINT"FOLGENDE BEFEHLE SIND DEFINIERT:"
452 (null)
499 END
500 REM ** DIREKT-DEKLARATION #0
501 REM ** NUR MIT PROFI-ASS
502 (null)"PURPLE",0,"PROGRAM:":.OPT OO
504 LDA #4:STA 53280:STA 53281:RTS
506 .END